home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00183.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  1.1 KB  |  35 lines
  1. on IniciaNiv
  2.   global TabBatallas, Tabcajas, cinta, pase, video, mouseUp, mouseUp, niv_sonido1, niv_sonido2, max_cal_1, max_cal_2, max_cal_3, max_vida, max_escudo, cal_1, cal_2, cal_3, vida, escudo, caja_cal_1, caja_cal_2, caja_cal_3, caja_vida, caja_escudo, Niv, Sala, Punto, muerte, calibre, EnMuerte, EnVideo, MaxMuerte, idioma, full_video
  3.   puppetTempo(15)
  4.   repeat with xx = 28 to 32
  5.     puppetSprite(xx, 1)
  6.   end repeat
  7.   minimos()
  8.   set idioma to 1
  9.   set full_video to 0
  10.   set Niv to 4
  11.   set Sala to 2
  12.   set Punto to 439
  13.   set cinta to 0
  14.   set pase to 0
  15.   set video to 0
  16.   set caja_cal_1 to 10
  17.   set caja_cal_2 to 8
  18.   set caja_cal_3 to 4
  19.   set caja_escudo to 10
  20.   set caja_vida to 10
  21.   set max_cal_1 to 99
  22.   set max_cal_2 to 99
  23.   set max_cal_3 to 50
  24.   set max_escudo to 99
  25.   set max_vida to 99
  26.   set TabBatallas to [1, 1, 0, 0, 0, 0]
  27.   set EnMuerte to 0
  28.   set EnVideo to 0
  29.   set MaxMuerte to 6
  30.   set niv_sonido1 to 255
  31.   set niv_sonido2 to 180
  32.   set Tabcajas to [5, 2, 1, 4, 1, 0, 5, 3, 2, 3, 8, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  33.   activaNiveles()
  34. end
  35.